---
title: "Nosso primeiro dashboard"
author: "Vitor"
output:
flexdashboard::flex_dashboard:
orientation: columns
social: menu
source_code: embed
---
About {data-navmenu="Explorar os menus"}
----------------------------------------
----------------------------------------
```{r setup, include=FALSE}
pacman::p_load(rbokeh,flexdashboard, ggplot2)
```
Column {data-width=600}
------------------------------------------------------------
### Espécies de flores
```{r}
base_flores <-iris
grafico1 <- base_flores %>%
ggplot(aes(x=Sepal.Length,
y=Sepal.Width,
color=Species,
size=10))+
geom_point()+
theme(legend.position = "bottom")
grafico1
#figure(width = NULL, height = NULL) %>%
# ly_points(Sepal.Length, Sepal.Width, data = iris, color = Species)
# figure() %>%
# ly_points(Sepal.Length, Sepal.Width, data = iris,
# color = Species, glyph = Species)
```
Column {data-width=500}
-----------------------------------------------------------------------
### Espécies (Quantile)
```{r}
figure(width = NULL, height = NULL, legend_location = "top_left") %>%
ly_quantile(Sepal.Length, group = Species, data = iris)
```
### Comprimento da pétala
```{r}
figure(width = NULL, height = NULL) %>%
ly_points(Sepal.Length, Sepal.Width, data = iris,
color = Petal.Width)
```